home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / magiccon.d < prev    next >
Text File  |  1997-10-26  |  4KB  |  72 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *         MAGIC   Modula's  All purpose  GEM  Interface  Cadre         *
  4.  *                 ÿ         ÿ            ÿ    ÿ          ÿ             *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus in schrift-  *
  11.  * licher Form, insbesondere in Zeitschriften, sowie die Verbreitung    *
  12.  * ber Public-Domain-H„ndler bedarf der ausdrcklichen schriftlichen   *
  13.  * Genehmigung des Autors!                                              *
  14.  *                                                                      *
  15.  * Der Autor gibt hiermit die ausdrckliche Erlaubnis, das Modul jeder- *
  16.  * zeit auch im Quelltext weiterzugegeben, sofern dessen Text und ins-  *
  17.  * besondere dieser Urheberrechts-Vermerk nicht ver„ndert wird, und     *
  18.  * durch die Weitergabe kein finanzieller Nutzen entsteht. Der Autor    *
  19.  * beh„lt sich das Recht vor, diese Erlaubnis jederzeit u. ohne Angaben *
  20.  * von Grnden zu widerrufen.                                           *
  21.  *----------------------------------------------------------------------*)
  22.  
  23. (*----------------------------------------------------------------------*
  24.  * MagicConvert         Konvertierungsroutinen fr Zahlen               *
  25.  *----------------------------------------------------------------------*)
  26.  
  27. DEFINITION MODULE MagicConvert;
  28.  
  29. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  30.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  31.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  32.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  33.  
  34.  
  35.  
  36.  
  37.  
  38. PROCEDURE NumToStr (num: lCARDINAL;  len, base: sCARDINAL;  neg: BOOLEAN;
  39.                     VAR s: ARRAY OF CHAR);
  40. (* Wandelt Nummer in String *)
  41.  
  42. PROCEDURE StrToNum (REF  s: ARRAY OF CHAR; base: sCARDINAL;  neg: BOOLEAN;
  43.                     max: lCARDINAL): lCARDINAL;
  44. (* Wandelt String in Nummer *)
  45.  
  46. PROCEDURE StrToInt      (REF  s: ARRAY OF CHAR): sINTEGER;
  47. PROCEDURE StrToCard     (REF  s: ARRAY OF CHAR): sCARDINAL;
  48. PROCEDURE HexToCard     (REF  s: ARRAY OF CHAR): sCARDINAL;
  49. PROCEDURE StrToLInt     (REF  s: ARRAY OF CHAR): lINTEGER;
  50. PROCEDURE StrToLCard    (REF  s: ARRAY OF CHAR): lCARDINAL;
  51. PROCEDURE StrToReal     (REF  s: ARRAY OF CHAR): REAL;
  52. PROCEDURE StrToLReal    (REF  s: ARRAY OF CHAR): LONGREAL;
  53. (* Wandelt String in Nummer *)
  54.  
  55. PROCEDURE IntToStr      (w: sINTEGER;  n: sCARDINAL; VAR s: ARRAY OF CHAR);
  56. PROCEDURE CardToStr     (w: sCARDINAL; n: sCARDINAL; VAR s: ARRAY OF CHAR);
  57. PROCEDURE CardToHexStr  (w: sCARDINAL; n: sCARDINAL; VAR s: ARRAY OF CHAR);
  58. PROCEDURE LIntToStr     (w: lINTEGER;  n: sCARDINAL; VAR s: ARRAY OF CHAR);
  59. PROCEDURE LCardToStr    (w: lCARDINAL; n: sCARDINAL; VAR s: ARRAY OF CHAR);
  60. PROCEDURE RealToStr     (w: REAL;      n: sCARDINAL; VAR s: ARRAY OF CHAR);
  61. PROCEDURE LRealToStr    (w: LONGREAL;  n: sCARDINAL; VAR s: ARRAY OF CHAR);
  62. (* Wandelt Nummer in String. n = Anzahl der Zeichen, die s mindestens 
  63.  * umfassen soll
  64.  *)
  65.  
  66. PROCEDURE FixRealToStr  (w: REAL; n, l: sCARDINAL; VAR s: ARRAY OF CHAR);
  67. PROCEDURE FixLRealToStr (w: LONGREAL; n, l: sCARDINAL; VAR s: ARRAY OF CHAR);
  68. (* Wandelt Reals in Festpunkt-Notation. l = Anzahl der Nachkommastellen *)
  69.  
  70. END MagicConvert.
  71.  
  72.